home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / animal init.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  948b  |  32 lines
  1. 50 REM ------------------------------
  2. 51 REM -       ANIMAL INIT          -
  3. 52 REM - THIS PROGRAM CREATES THE   -
  4. 53 REM - ORIGINAL SEQUENTIAL FILES  -
  5. 54 REM - FOR THE 'ANIMAL' PROGRAM   -
  6. 55 REM -                            -
  7. 56 REM -   FILE NAME     CONTENTS   -
  8. 57 REM -   ---------     --------   -
  9. 58 REM -  QUESTIONS   1)THE QUESTION-
  10. 59 REM -              2)WHERE TO GO -
  11. 60 REM -                ON A YES    -
  12. 61 REM -              3)WHERE TO GO -
  13. 62 REM -                ON A NO     -
  14. 63 REM -                            -
  15. 64 REM -  ANSWERS     1)LIST OF     -
  16. 65 REM -                ANIMALS     -
  17. 66 REM -                            -
  18. 67 REM - A '*' SIGNALS THE END OF   -
  19. 68 REM - THE FILE IN EACH FILE      -
  20. 69 REM ------------------------------
  21. 100 C$=","
  22. 115 OPEN 33,8,5,"QUESTIONS,SEQ,W"
  23. 120 PRINT#33,"DO YOU LIVE ON A FARM",C$,    1001,C$,1002
  24. 121 PRINT#33,"*",0,0
  25. 122 CLOSE33
  26. 124 REM
  27. 125 OPEN 34,8,6,"ANSWERS,SEQ,W"
  28. 130 PRINT#34,"HORSE"
  29. 131 PRINT#34,"LION"
  30. 132 PRINT#34,"*"
  31. 140 CLOSE34
  32.